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DIRECTORY 

AllocDefs: FROM "allocdefs", 
AUoDefs: FROM "altodefs", 
AltoFileDefs: FROM "al tof iledefs", 
SegmentDefs: FROM "segmentdef s"; 

DEFINITIONS FROM BootCacheDef s; 

BootCacheDef s: DEFINITIONS - 
BEGIN 

CoreSegmentObject: TYPE ■ RECORD [ 

segment: SegmentDef s. FileSegmentHandle, 
old: BOOLEAN, 
page: [0. .256)]; 

CoreSegment: TYPE » POINTER TO CoreSegmentObject; 

PageNumber: TYPE ■ Al toDef s .PageNumber; 

vDA: TYPE - Al toFileDef s. vDA; 

Pageltem: TYPE ■ RECORD [page: PageNumber, da: vDA]; 

PageltemPtr: TYPE » POINTER TO Pageltem; 

InitCoreCache: PROCEDURE [name: STRING, FirstVMPage, LastVMPage: PageNumber]; 

CloseCoreCache: PROCEDURE; 

FlushCoreCache: AllocDef s.SwappingProcedure; 

NewCoreSegment: PROCEDURE [p: POINTER TO Pageltem, cs: CoreSegment]; 

GetCS: PROCEDURE [p: Pageltem] RETURNS [SegmentDef s . FileSegmentHandle]; 

BadReadWrite: ERROR; 

GetPageltem: PROCEDURE [page: CARDINAL] RETURNS [p: Pageltem]; 

SetPageltem: PROCEDURE [page: CARDINAL, p: Pageltem]; 

GetCoreFile: PROCEDURE RETURNS [SegmentDef s . FileHandle]; 
SetCoreFile: PROCEDURE [file: SegmentDef s .FileHandle]; 

READ: PROCEDURE [UNSPECIFIED] RETURNS [UNSPECIFIED]; 
WRITE: PROCEDURE [a,v: UNSPECIFIED]; 

SetDefaultCacheSize: PROCEDURE [CARDINAL]; 

BootCache: PROGRAM; 

END. 


